00100		SUBROUTINE GETIT(NM)
00200		COMMON SMPLS(20000)
00300		IF(NM.EQ.'P')GO TO 1
00400	C  TYPE 'P' TO REPLAY
00500		CALL GETFIL(NM)
00510		DO 2 K=5000,20000
00520	2	SMPLS(K)=0
00600		CALL FASTIN(SMPLS,20000)
00700		DO 5 K=20000,1,-1
00800	5	IF(SMPLS(K).NE.0)GO TO 6
00900	6	K=K+1
01000		CALL SPEED(3,1)
01100	1	CALL D2A(SMPLS,K)
01200		END
01300	
01400		SUBROUTINE FILE(N)
01500		REWIND 1
01600		CALL IFILE(1,N)
01700		END
08000	
10000	C  GIVES NUMERICAL VALUE TO LETTER STRING
10100		FUNCTION WDNM(I)
10200		DIMENSION I(1)
10300		N=0
10400		DO 1 K=1,20
10500		IF(I(K).EQ.' ')GO TO 1
10600		N=N+(I(K)-'A')/536870912
10700	1	CONTINUE
10800		WDNM=N
10900		END